Interactive Map:

Click the point to popup information

Position and Density:

ggplot(df, aes(x=x, y=y))+
  geom_point(aes(col = parcela_bl), size = 3, alpha = 0.5)+
  scale_color_manual(values = eqm)+
  ggtitle("Fall Trees Location")+
  theme_light()+
  coord_fixed()
## Warning: Removed 5 rows containing missing values (geom_point).

ggplot(df, aes(x=x, y=y))+
  stat_density2d(geom="tile", aes(fill = ..density..), contour = FALSE) + 
  stat_density_2d(col = "black")+
  scale_fill_viridis_c()+
  ggtitle("Fall Trees Density")+
  theme_light()+
  coord_fixed()
## Warning: Removed 5 rows containing non-finite values (stat_density2d).
## Warning: Removed 5 rows containing non-finite values (stat_density2d).

Climax and Pionner trees:

int = ggplot(df, aes(x=x, y=y))+
  geom_point(aes(col = succ), size = 3, alpha = 0.5)+
  scale_color_manual(values = eqm2)+
  ggtitle("Fall Trees Successional Condition")+
  theme_light()+
  coord_fixed()
ggplotly(int)
ggplot(succ2, aes(x="", y=percent, fill=succ))+
  geom_bar(width = 1, stat = "identity", alpha = 0.8)+
  coord_polar("y", start=0)+
  geom_text(aes(label = paste0(substr(succ2$percent, 1,2), "%")),
            vjust = -2, size = 5, col = "white")+
  xlab("")+ ylab("")+ labs(fill='Successional
  Condition')+
  ggtitle("Percentage of fallen trees")+
  scale_fill_manual(values = eqm2)+
  theme_minimal()+
  theme(axis.ticks.x = element_blank(),
        axis.text.x = element_blank())
## Warning: Use of `succ2$percent` is discouraged. Use `percent` instead.

ggplot(succ3, aes(x = parcela_bl, y=percent, fill=succ))+
  geom_bar(position="stack", stat = "identity", alpha = 0.8)+
  ggtitle("Percentage of fallen trees by treatment")+
  xlab("")+ ylab("")+ labs(fill='Successional
  Condition')+
  scale_fill_manual(values = eqm2)+
  theme_bw()

ggplot(succ4, aes(x = parcela_bl, y=percent, fill=succ))+
  geom_bar(position="stack", stat = "identity", alpha = 0.8)+
  ggtitle("Percentage of fallen trees by treatment - V2")+
  xlab("")+ ylab("")+ labs(fill='Successional
  Condition')+
  scale_fill_manual(values = eqm2)+
  theme_bw()